home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aaq.d64 / v.dat < prev    next >
Text File  |  2007-02-28  |  1KB  |  87 lines
  1. 8000 PENUP 
  2. 8010 FORWARD 9
  3. 8020 PENDOWN 
  4. 8030 FOR J:=1 TO 20 DO //V1
  5. 8040  IF J=1 THEN
  6. 8050   L:=10
  7. 8060  ENDIF 
  8. 8070  IF J=2 THEN PRINT 3-20
  9. 8080  PENDOWN 
  10. 8090  FORWARD L
  11. 8100  PENUP 
  12. 8110  BACK L+.5
  13. 8120  LEFT 90
  14. 8130  FORWARD 1
  15. 8140  RIGHT 90
  16. 8150 ENDFOR J
  17. 8160 //
  18. 8170 PENUP 
  19. 8180 RIGHT 90
  20. 8190 FORWARD 20
  21. 8200 LEFT 90
  22. 8210 FORWARD 9
  23. 8220 FOR J:=1 TO 20 DO // 2
  24. 8230  IF J=1 THEN
  25. 8240   L:=10
  26. 8250  ENDIF 
  27. 8260  IF J=2 THEN PRINT 3-20
  28. 8270  PENDOWN 
  29. 8280  FORWARD L
  30. 8290  PENUP 
  31. 8300  BACK L-.5
  32. 8310  LEFT 90
  33. 8320  FORWARD 1
  34. 8330  RIGHT 90
  35. 8340 ENDFOR J
  36. 8350 //
  37. 8360 PENUP 
  38. 8370 BACK 19
  39. 8380 LEFT 90
  40. 8390 // FORWARD 1
  41. 8400 RIGHT 90
  42. 8410 FOR J:=1 TO 4 DO // 3
  43. 8420  PENDOWN 
  44. 8430  FORWARD 10
  45. 8440  PENUP 
  46. 8450  FORWARD 8
  47. 8460  PENDOWN 
  48. 8470  FORWARD 10
  49. 8480  PENUP 
  50. 8490  BACK 28
  51. 8500  LEFT 90
  52. 8510  FORWARD 1
  53. 8520  RIGHT 90
  54. 8530 ENDFOR J
  55. 8540 //
  56. 8550 FOR J:=1 TO 14 DO // 4
  57. 8560  PENUP 
  58. 8570  FORWARD 2
  59. 8580  PENDOWN 
  60. 8590  FORWARD 8
  61. 8600  PENUP 
  62. 8610  FORWARD 8
  63. 8620  PENDOWN 
  64. 8630  FORWARD 8
  65. 8640  PENUP 
  66. 8650  BACK 26
  67. 8660  LEFT 90
  68. 8670  FORWARD 1
  69. 8680  RIGHT 90
  70. 8690 ENDFOR J
  71. 8700 //
  72. 8710 FOR J:=1 TO 2 DO // 5
  73. 8720  PENUP 
  74. 8730  FORWARD 3
  75. 8740  PENDOWN 
  76. 8750  FORWARD 6
  77. 8760  PENUP 
  78. 8770  FORWARD 10
  79. 8780  PENDOWN 
  80. 8790  FORWARD 6
  81. 8800  PENUP 
  82. 8810  BACK 25
  83. 8820  LEFT 90
  84. 8830  FORWARD 1
  85. 8840  RIGHT 90
  86. 8850 ENDFOR J
  87.